home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / util / misc / Fudgit233.lha / Source / examples / fib.ft < prev    next >
Encoding:
Text File  |  1993-12-14  |  507 b   |  32 lines
  1. # Print Fibonacci numbers
  2. cmode
  3.     proc fib(x) {  # This x is a prototype
  4.         # a, b, c will all be defined as global variables
  5.         a = 0 
  6.         b = 1 
  7.         while (b < x) { 
  8.             print b, "\n"
  9.             c = b 
  10.             b += a 
  11.             a = c 
  12.         } 
  13.     } 
  14.     
  15.     proc fib2(x) {
  16.         auto a,b,c  # These a,b,c are local and hide global a,b,c above
  17.  
  18.         for(a=0,b=1;b<x;c=b,b+=a,a=c) {
  19.             b    # This is equivalent to (print b, "\n")
  20.         }
  21.     }
  22.     
  23.     i=1
  24.     while (i++<10) {
  25.         fib(1000)
  26.     }
  27.     i=1
  28.     while (i++<10) {
  29.         fib2(1000)
  30.     }
  31. fmode
  32.